home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / global.bas < prev    next >
BASIC Source File  |  1995-05-09  |  501b  |  18 lines
  1. '  OpenFile() Structure
  2. Type OFSTRUCT
  3.         cBytes As String * 1
  4.         fFixedDisk As String * 1
  5.         nErrCode As Integer
  6.         Reserved1 As String * 1
  7.         Reserved2 As String * 1
  8.         Reserved3 As String * 1
  9.         Reserved4 As String * 1
  10.         szPathName As String * 128
  11. End Type
  12.  
  13. '  OpenFile() Flags
  14. Global Const OF_EXIST = &H4000
  15.  
  16. Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Integer) As Integer
  17.  
  18.